home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh27c.d64
/
sinus demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
481b
|
25 lines
100 REM DEMO 1
105 GCL
107 X2=0:Y2=47
110 FOR X = 0 TO 318
114 X1=X
116 Y1=SIN(X/319*4*(null))*47+47
120 SET,X1,Y1
130 SET,X1+1,Y1
140 SET,X1,Y1+1
150 SET,X1+1,Y1+1
160 NEXT
170 LINE,0,47,319,47
180 LINE,0,48,319,48
190 FOR X = 0 TO 319 STEP 16
200 LINE,X,45,X,50
210 NEXT
220 CHAR,1,0,"[213]=SIN(WT)*[213]M",0
225 IRQ
230 PRINT"SPANNUNG AN DEN ENDEN EINER ROTIERENDEN SCHLEIFE"
240 PRINT" U(MAX)= +14,3 V"
250 PRINT" U(MIN)= -14,3 V"
260 PRINT" W = 2[255](1/T)"
280 PRINT" T = 0,1 S"
290 PRINT" B = 0,5 T"